﻿Imports System.Data.SqlClient, System.Globalization

Public Class AlumnoAD

    Public Function fBuscarAlumno(ByVal pNombreNivel As String) As List(Of AlumnoEN)
        Dim lAlumnos As List(Of AlumnoEN) = New List(Of AlumnoEN)
        Dim objAlumnoLeido As AlumnoEN

        'Instanciamos un objeto de la clase ConexionBD
        Dim cnx As New ConexionBD
        'Se crea la sentencia SQL que en este caso es un STORE PROCEDURE 
        Dim strSql As String = "exec sp_BUSCAR_ALUMNOS '" & pNombreNivel & "' "
        'Creamos un conexión a la BD"
        Dim cnx_1 As SqlConnection
        cnx_1 = cnx.obtenerCnx()
        Dim cmd As New SqlCommand(strSql, cnx_1)
        Dim myreader As SqlClient.SqlDataReader = cmd.ExecuteReader()

        If myreader.HasRows Then
            While (myreader.Read())
                objAlumnoLeido = New AlumnoEN
                objAlumnoLeido.IdAlumno = myreader.GetInt32(0)
                objAlumnoLeido.NombreAlumno = myreader.GetString(1)
                objAlumnoLeido.ApePaternoAlumno = myreader.GetString(2)
                objAlumnoLeido.ApeMaternoAlumno = myreader.GetString(3)
                objAlumnoLeido.NombreGradoAlumno = myreader.GetString(4)
                lAlumnos.Add(objAlumnoLeido)
            End While
        Else
            MsgBox("Se presentaron problemas al cargar los alumnos ", MsgBoxStyle.Information, "Error")
        End If
        myreader.Close()
        cnx_1.Close()
        Return lAlumnos
    End Function
End Class
